home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / cambiov.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  77 lines
  1. /* Voltapagina tra 2 immagini su asse X su fondo nero in 36 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9.  
  10. OKAY2 '"Hai messo a RESET TO DEFAULT il perspective?"'
  11. IF RC = 0 THEN EXIT
  12.  
  13. GETFILES '"Seleziona la PRIMA immagine"'
  14.  IF RC ~= 0 THEN EXIT
  15.   PRIMA = ADPRO_RESULT
  16.    IF PRIMA = "" THEN EXIT
  17.     LOADER "UNIVERSAL" PRIMA
  18. SAVER "IFF" TmpIma "RAW"
  19.     XSIZE
  20.      BASE = ADPRO_RESULT
  21.     YSIZE
  22.      ALTZ = ADPRO_RESULT
  23.  
  24. GETFILES '"Seleziona la SECONDA immagine"'
  25.  IF RC ~= 0 THEN EXIT
  26.   SECONDA = ADPRO_RESULT
  27.    IF SECONDA = "" THEN EXIT
  28. ROTAZIONE = 0
  29. NUMEROFRAME = 0
  30.  
  31. GETfile '"Path e nomebase 36 frames elaborati"'
  32. IF RC ~= 0 THEN EXIT
  33. OUTFILE = ADPRO_RESULT
  34. if OUTFILE = "" then exit
  35.   
  36.    DO i=1 to 18      /* fase 1 */
  37. LOADER "IFF" TmpIma
  38.  OPERATOR "PERSPECTIVE" CAMERA_POSITION 0 0 (BASE) THETA 0 GAMMA 0 PHI (ROTAZIONE) SOFT_EDGE
  39.   ROTAZIONE = (ROTAZIONE + 5)
  40.     NUMEROFRAME = (NUMEROFRAME + 1)
  41. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  42.  SFORMAT "IFF"
  43.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  44.   SAY "Salvo il frame Num." NUMERO
  45.     END    
  46. ADDRESS COMMAND "Delete >NIL:" TmpIma
  47.  
  48. ROTAZIONE2 = 95
  49.  
  50. LOADER "UNIVERSAL" SECONDA
  51.     XSIZE
  52.      BASE2 = ADPRO_RESULT
  53.     YSIZE
  54.      ALTZ2 = ADPRO_RESULT
  55. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  56.                           ABS_SCALE (BASE) (ALTZ)
  57.                         END
  58. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  59.                   ABS_SCALE (BASE) (ALTZ)
  60.                  END
  61. OPERATOR "VERTICAL_FLIP"
  62.  SAVER "IFF" TmpIma "RAW"
  63.  
  64.    DO i=1 to 18        /* fase 2 */
  65.  LOADER "IFF" TmpIma
  66.   OPERATOR "PERSPECTIVE" CAMERA_POSITION 0 0 (BASE) THETA 0 GAMMA 0 PHI (ROTAZIONE2) SOFT_EDGE
  67.    ROTAZIONE2 = (ROTAZIONE2 + 5)
  68.     NUMEROFRAME = (NUMEROFRAME + 1)
  69. NUMERO2 = RIGHT(NUMEROFRAME,3,'0')
  70.  SFORMAT "IFF"
  71.   SAVE (OUTFILE)||'.'||(NUMERO2) "RAW"
  72.   SAY "Salvo il frame Num." NUMERO2
  73.     END
  74. ADDRESS COMMAND "Delete >NIL:" TmpIma
  75.  
  76. EXIT
  77.